All predators combined

Side-by-side plots for each region are in the tabs below (under construction…).

areas <- unique(aggdiet4prey$epu)
times <- unique(aggdiet4prey$season)

for(a in areas){
  for(t in times){
    p1 <- plotDietCompBar(dat=aggdiet4prey%>%filter(season==t, epu==a), 
                          metric="rave_amt", 
                          title="Full diet composition")
    
    p2 <- plotPreytrend(dat=aggdiet4prey%>%filter(season==t, epu==a), 
                        metric="rave_amt", 
                        title="Trends in components")
    cat("  \n###",  as.character(a),", ",  as.character(t),"  \n")
    print(p1 + p2 + plot_layout(widths = c(4, 3), guides = 'collect') + plot_annotation(
      title = paste0('All predators combined, ',a, ", ",t)))
    cat("  \n")   
  }
}

GB , FALL

GB , SPRING

GOM , FALL

GOM , SPRING

MAB , FALL

MAB , SPRING

SS , FALL

SS , SPRING

Selected individual predators

Side-by-side plots for a few predators and regions are in the tabs below (under construction…)